home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / prntutil / mbook30 / mbheader.ps < prev    next >
Text File  |  1995-04-25  |  2KB  |  38 lines
  1. initgraphics 270 rotate clippath
  2. 0.10 0.10 scale
  3. pathbbox /UY exch def /UX exch def /LY exch def /LX exch def
  4. /XO 0 def /YO 0 def
  5. /XL 12920 def /YL -9920 def
  6. /XOff 0 def /YOff 0 def
  7. newpath LX XOff add XO sub UY YOff add YO sub translate
  8. newpath XO YO moveto XL XO add YO lineto
  9. XL XO add YL YO add lineto XO YL YO add lineto clip
  10. newpath closepath
  11. /Tan {dup exch sin exch cos div} def
  12. /l {rlineto} bind def /L {lineto} bind def
  13. /m {rmoveto} bind def /M {moveto} bind def
  14. /x {0 rmoveto} bind def /X {0 moveto} bind def
  15. /y {0 exch rmoveto} bind def /Y {0 exch moveto} bind def
  16. /as {0 exch ashow} bind def /s {show} bind def
  17. /makeoutlinedict 7 dict def /MakeOutlineFont {
  18. makeoutlinedict begin /uniqueid exch def
  19. /strokewidth exch def /newfontname exch def
  20. /basefontname exch def /basefontdict basefontname findfont def
  21. /numentries basefontdict maxlength 1 add def
  22. basefontdict /UniqueID known not
  23. {/numentries numentries 1 add def} if
  24. /outfontdict numentries dict def basefontdict
  25. {exch dup /FID ne {exch outfontdict 3 1 roll put}
  26. {pop pop} ifelse } forall
  27. outfontdict /FontName newfontname put
  28. outfontdict /PaintType 2 put
  29. outfontdict /StrokeWidth strokewidth put
  30. outfontdict /UniqueID uniqueid put
  31. newfontname outfontdict definefont pop end } def
  32. /WrongRead { 0 exch 0 exch aWrongRead } def
  33. /aWrongRead { /theString exch def /extra exch def
  34. /CurrentM matrix currentmatrix def [-1 0 0 1 0 0] concat
  35. theString { /charcode exch def /theChar ( ) dup 0 charcode put def
  36. theChar stringwidth /y exch def /x exch neg extra sub def
  37. x y rmoveto theChar show x y rmoveto} forall CurrentM setmatrix} def
  38.